home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 August / August CD.bin / Shareware / Games / Core War / Battle Programs / contest89 / WANG1.RED < prev   
Text File  |  1991-08-12  |  761b  |  24 lines
  1. ;    Wang1
  2. ;    by Alan Wang
  3.  
  4. start  mov #-1             sbeg   ;  set up counts for
  5.        mov #-256           dbeg   ;  self-copying
  6.        mov # 12            left
  7. again  mov < sbeg        < dbeg   ;  make a copy of wang 1 
  8.        djn   again         left   ;  back 256 in the mars
  9.        spl (start-256)            ;  and split to it
  10.        mov # 10            bstart 
  11.        mov # 14            bleft  ; set up bombing counts
  12. bagain mov   bomb        @ bstart ; bombing loop
  13.        add # 16            bstart
  14.        djn   bagain        bleft
  15.        jmp   start
  16. dbeg   dat               $ 0
  17. sbeg   dat               $ 0
  18. left   dat               $ 0
  19. bomb   dat               $ 0
  20. bstart dat               $ 0
  21. bleft  dat               $ 0
  22.        end   start
  23.  
  24. a